100 Plus Great Games 2/100PLUSV2.BIN/games/TowerOfHanoy.dxr/00003_Disc 1 code.ls

Text File | 2002-01-25 | 3.5 KB | 100 lines

global gDiscNum, gReleaseBall, gCheckList, gPosX, gPosY, gOriginX, gOriginY, gLeftTowerList, gCenterTowerList, gRightTowerList, gPlaced, gStackSide, gSingle

on mouseDown
  puppetSound(1, "pick up piece")
  gDiscNum = 20
  gPosX = the mouseH
  gPosY = the mouseV
  if gPlaced = 1 then
    if (gPosX >= 15) and (gPosX <= 185) and ((gPosY >= 110) and (gPosY <= 385)) then
      gStackSide = 4
      repeat with gCheckList = 1 to 10
        if gLeftTowerList[gCheckList] = 0 then
          if gCheckList = 1 then
            gCheckList = 2
          end if
          if gLeftTowerList[gCheckList - 1] = gDiscNum then
            if gReleaseBall = 1 then
              sprite(gDiscNum).locZ = 35
              sprite(gDiscNum).loc = the mouseLoc
              gOriginX = sprite(gDiscNum).locH
              gOriginY = sprite(gDiscNum).locV
            end if
            gPosX = the mouseH
            gPosY = the mouseV
            gReleaseBall = 0
            if gLeftTowerList[1] <> 0 then
              repeat with gCheckList = 1 to 10
                if gLeftTowerList[gCheckList] = 0 then
                  gLeftTowerList[gCheckList - 1] = 0
                  exit
                end if
              end repeat
            end if
          end if
        end if
      end repeat
    else
      if (gPosX >= 202) and (gPosX <= 375) and ((gPosY >= 110) and (gPosY <= 385)) then
        gStackSide = 5
        repeat with gCheckList = 1 to 10
          if gCenterTowerList[gCheckList] = 0 then
            if gCheckList = 1 then
              gCheckList = 2
            end if
            if gCenterTowerList[gCheckList - 1] = gDiscNum then
              if gReleaseBall = 1 then
                sprite(gDiscNum).locZ = 35
                sprite(gDiscNum).loc = the mouseLoc
                gOriginX = sprite(gDiscNum).locH
                gOriginY = sprite(gDiscNum).locV
              end if
              gPosX = the mouseH
              gPosY = the mouseV
              gReleaseBall = 0
              if gCenterTowerList[1] <> 0 then
                repeat with gCheckList = 1 to 10
                  if gCenterTowerList[gCheckList] = 0 then
                    gCenterTowerList[gCheckList - 1] = 0
                    exit
                  end if
                end repeat
              end if
            end if
          end if
        end repeat
      else
        if (gPosX >= 388) and (gPosX <= 561) and ((gPosY >= 110) and (gPosY <= 385)) then
          gStackSide = 6
          repeat with gCheckList = 1 to 10
            if gRightTowerList[gCheckList] = 0 then
              if gCheckList = 1 then
                gCheckList = 2
              end if
              if gRightTowerList[gCheckList - 1] = gDiscNum then
                if gReleaseBall = 1 then
                  sprite(gDiscNum).locZ = 35
                  sprite(gDiscNum).loc = the mouseLoc
                  gOriginX = sprite(gDiscNum).locH
                  gOriginY = sprite(gDiscNum).locV
                end if
                gPosX = the mouseH
                gPosY = the mouseV
                gReleaseBall = 0
                if gRightTowerList[1] <> 0 then
                  repeat with gCheckList = 1 to 10
                    if gRightTowerList[gCheckList] = 0 then
                      gRightTowerList[gCheckList - 1] = 0
                      exit
                    end if
                  end repeat
                end if
              end if
            end if
          end repeat
        end if
      end if
    end if
  end if
end